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PROGRAM 



ASCII Octal to Single Precision Binary 



TAPES 



ASCII Sources 090-000031 



? EXTRACT 

This routine converts an ASCII character string consisting of 
octal digits to a single precision binary number. 
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1. 1 Memory 

IK or larger alterable memory 

1.2 Equipment 

NOVA central processor 

!• 3 External Subroutines 

A user supplied "get a character" routine (see 2.2) 
and possibly a user supplied "accept a character" 
routine (see 2.1). 

1.4 Other 

None . 

2. OPERATING REQUIR EMENTS 

2. 1 Calling Sequence 

Two entry points are provided. The first is a 
normal entry, while the second is for the user who 
needs an indication that a number is requested. 
formal entry is made by 

JSR .OBIM 
return 

If an indication is needed, entry is made by 

JSR .OBKI 

return 

If the second entry is used, the user must provide 
the address of a routine in location 41 of page zero 
that will accept the indication. Indication will 
be an ASCII "o" (for octal) followed by a null character. 
These two characters are passed separately, right 
adjusted in AC0 (bit 8=0), using two consecutive 
calls to the user routine. The user routine need not 
save any registers (except AC 3 if used) and return 
should be made by JMP 0,3. 
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2, 2 Input Format 

Input characters will be requested by calling a 
user "get a character" routine whose address roust 
be stored in location 40 of page zero. This user 
routine must be provided. Upon call, this routine 
should return as ASCII character, right adjusted in 
AC^ with bit 8 = 0. This routine need not save any 
registers (except AC3 if used) or Carry. Return 
should be made by JMP 0,3. 

Input should be of the form: 

00.. .OO(break) 

where "0" represents an ASCII octal digit 

{60^ O -4 67), and "break" is any ASCII character 

not in this range. 

2. 3 Output Format 

Upon exit, AC0 will contain the ASCII break 
character and AC1 will contain the 16-bit binary 
eouivalent of the input. 

2.4 Error Returns 
&one. 

2.5 State of Active Registers upon Exit 

AC2 is unchanged. AC0, AC1, AC 3, and Carry are 
destroyed. 

2. 6 Cautions to User 

An indefinite stream of octal digits will be 
accepted as input. However, the result will be 

N mod 200000 (octal) 

For example, 57 6452 converts to 17 6452. 
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3. Diy-'jrjszioi; 

3. 1 Algorithms 

A register for the result is initially cleared. 
An ASCII character is requested and checked for 

the range 

60 ^ 4 67 . 

If out of range, the algorithm terminates. Otherwise, 
the character is reduced to the binary range 

0^0 $ 1 , 

the result register is shifted three binary posi- 
tions left, and the digit is added to the result. 
This procedure is repeated until a break character 
is encountered. 

3. 2 Limitations and Accuracy 
The result is 

E mod 200000 (octal) 
where E represents the octal input. 

3.3 Size and Timing 

The routine is 42 (octal) words in length. 

Execution time for .OB IN is 

63.0 + I * 70.2 JU seconds 

where I represents the number of digits in the 
input. For example, 576452 reouires 



63.0 + 6 * 70.2 = 484.2 /A seconds. 
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3.4 References 
Bone , 

3.5 Flow Diagrams 
None. 

4 . EXAMPLES AI-D AFP LIC AT I Pis 5 

The ASCII source of octal to binary is provided with 

the KOVA software. If a user routine requires this program, 

the tape should be edited into the user source. 

5. PROGRAM LISTING 

A listing of octal to binary follows. Mo origin is given 
in the source, enabling the user to edit the tape anywhere 
within his routine. 
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--- - --,. ' KEEKESMEIS AN OCTAL DIGIT AND 

OUTPUTS AC0 CONTAINS THE BLEAK G HAL AC TEE 

2EEE0E OCfAL) 

CALL I EE SEQUENCE : 

JL« »OEXE 
KEfUEN 



I IK AN J NO 

1 EEEUEETEE 



EEACfEKE AKE 



i» 


EETUttE 


J 
1 
$ 

1 


AN ASCII "0" 

i U U *3> c» *"^ f u t 

AiJUKESE MEET 


1 

1 


CAUTIONS 


1 


EEETEOTEE! 
UNCHANGED s 



LOCATION 4 1 


1 OF PAGE 


tV| D S E 


cog;~,e~» 


CONVEKfE ; 


ro 176452 


3j CAKKY 





EEEE0 E5403S .OBNI: SEE 3^EEES i SAVE KEi'UKN 

ETA 2,«E£EE I SAVE AGE 



EEEEi 0SE03 
E00E2 E2004 



000 i I I 2 6400 SUB 1 * i 

00012 04403 6 SEE 1** 



SEE §»EE4i I SEEE "0" 

:■:. --,»EE--1 I SEME NULL 

ji^S - E IE- -_ •. 1 SAVE LET SEN 

E/^ i*.t--.^ I SAVE AGE 



1 GLEAK MEEELf WOKO 



Iff 
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0037 


000060 


•££20 5 


60 


0040 


00006? 


C' p* o 1 • 


6? 


004 1 


000 ** 1 7 


•EE228 


"0 



000040 .EE40=48 



000€ 



I LOO! 



LL BREAK RECEIVED 



CI 



ADDRESS OF GET A 
ADOKESS Of PUT A 

- ■".: - * ■■ TV -i 



